home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
SETDTA.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
364b
|
20 lines
program SetDTASample;
uses crt, DMT;
type
bufferSize = array[ 1..256 ] of byte;
var
NewDTA : BufferSize;
begin
Color( 7, 0 );
clrscr;
SetDTA( Seg( NewDTA ), Ofs( NewDTA ) ); { Call SetDTA procedure }
writeln;
writeln( 'New DTA address : ', WrdToHex( seg( NewDTA ) ), ':', WrdToHex( ofs( NewDTA ) ) );
GetEnter;
end.